home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 June: Reference Library / Dev.CD Jun 94.toast / Periodicals / develop / develop Issue 5 / develop 5 code / Lisp Mini-App / Program / globals.lisp < prev    next >
Encoding:
Text File  |  1992-04-08  |  3.3 KB  |  106 lines  |  [TEXT/CCL2]
  1. #|
  2.    globals.lisp
  3.  
  4.    Defines the global variables used in the Mini-Application
  5.    sample program.
  6.  
  7.    The use of the variables below is described in the appropiate
  8.    places in the code where the globals are initialized.
  9.  
  10.    For further info, see files "About Mini-App" and "Instructions".
  11.  
  12.  
  13.    Copyright 1990, 1991 by Ruben Kleiman for Apple Computer, Inc.
  14.  
  15.    Change History.
  16.    03-11-92 slm  Changed all occurrences of defvar to defparameter (24)
  17.                  so that after the Mini-Application is modified, the 
  18.                  changed files can be re-evaluated immediately.
  19.    03-09-92 slm  Updated file header comments.
  20.  
  21. |#
  22.  
  23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24. ;;; *window-count*
  25. ;;;
  26. ;;;   This variable is used to keep a count of the instances of
  27. ;;;   draw-dialog that we create
  28. ;;;
  29. (defparameter *window-count* 0)
  30.  
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. ;;; *available-tools*
  33. ;;;
  34. ;;;   This variable is used as a default by the create-palette function
  35. ;;;   to list all tools that should be included in the palette.
  36. ;;;
  37. ;;;   It is set by the example program in mini-app-example.lisp.
  38. ;;;
  39. (defparameter *available-tools* nil)
  40.  
  41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42. ;;; *available-draw-items*
  43. ;;;
  44. ;;;   This variable is used as a default by the create-palette function
  45. ;;;   to list all draw-items that should be included in the palette.
  46. ;;;
  47. ;;;   It is set by the example program in mini-app-example.lisp.
  48. ;;;
  49. (defparameter *available-draw-items* nil)
  50.  
  51. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  52. ;;; *clonable-item*
  53. ;;;
  54. ;;;   Used by select-rectangle method to figure out which
  55. ;;;   draw-item to clone on a window when the user uses this
  56. ;;;   direct manipulation technique.
  57. ;;;
  58. (defparameter *clonable-item* nil)
  59.  
  60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  61. ;;; Menubar
  62. ;;;
  63. (defparameter *mini-application-menubar* nil)
  64.  
  65. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  66. ;;; Menu items
  67. ;;;
  68. (defparameter *mini-application-file-menu*     nil)
  69. (defparameter *mini-application-edit-menu*     nil)
  70. (defparameter *mini-application-options-menu*  nil)
  71. (defparameter *selected-object-menu-indicator* nil)
  72.  
  73. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  74. ;;; File menu items
  75. ;;;
  76. (defparameter *file-new-menu-item*   nil)
  77. (defparameter *file-close-menu-item* nil)
  78. (defparameter *file-quit-menu-item*  nil)
  79.  
  80. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  81. ;;; Edit menu items
  82. ;;;
  83. (defparameter *cut-menu-item*   nil)
  84. (defparameter *copy-menu-item*  nil)
  85. (defparameter *paste-menu-item* nil)
  86. (defparameter *clear-menu-item* nil)
  87.  
  88. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  89. ;;; Options menu items
  90. ;;;
  91. (defparameter *palette-menu-item*             nil)
  92.  
  93. (defparameter *window-object-info-menu-item*  nil)
  94. (defparameter *window-script-menu-item*       nil)
  95.  
  96. (defparameter *object-script-menu-item*       nil)
  97. (defparameter *object-info-menu-item*         nil)
  98. (defparameter *bring-to-front-menu-item*      nil)
  99. (defparameter *create-by-rectangle-menu-item* nil)
  100.  
  101. (defparameter *go-to-lisp-menubar-menu-item*  nil)
  102.  
  103.  
  104. ;end of file globals.lisp
  105. ;------------------------------------------------
  106.